home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE03 / PERSEUS / PSLABEL.ZIP / PSBLOCK.INT < prev    next >
Text File  |  1995-06-06  |  876b  |  30 lines
  1. unit PSBlock;
  2.  
  3. {This is the source of the PSDrawText method which is shipped with the PSLabel
  4.  component of the Perseus VCP. If you purchase at least 2 copies of this
  5.  component you'll receive it with your registered version!
  6.  
  7.  Copyright ⌐ 1995: Sebastian Modersohn
  8.                    Softwaredevelopment
  9.                    Heinestrasse 20
  10.                    D 15370 Petershagen
  11.                    Phone: ++49 33439 7462
  12.                    CIS ID: 100340,1474
  13.  
  14.  Written by: Lars Amsel
  15.  
  16.  The source is nearly undocumented, so if you have questions to details, just
  17.  contact us via CompuServe and we'll help you (if we can <g>).}
  18.  
  19. {$DEFINE UNREGISTERED}
  20.  
  21. interface
  22.  
  23. uses Classes, WinProcs, WinTypes, Graphics, Controls, SysUtils;
  24.  
  25. const
  26.   dt_Block = $2000;
  27.  
  28. procedure PSDrawText(DC: HDC; var Rect: TRect; Text: String; Format: Word);
  29.  
  30. implementation